home *** CD-ROM | disk | FTP | other *** search
/ IRIX Base Documentation 1998 November / IRIX 6.5.2 Base Documentation November 1998.img / usr / share / catman / p_man / cat3 / f90 / ieee_is_nan.z / ieee_is_nan
Text File  |  1998-10-30  |  2KB  |  63 lines
  1. IEEE_IS_NAN(3I)                                        Last changed: 1-6-98
  2.  
  3.  
  4. NNAAMMEE
  5.      IIEEEEEE__IISS__NNAANN - Tests for _x being a NaN
  6.  
  7. SSYYNNOOPPSSIISS
  8.      IIEEEEEE__IISS__NNAANN (([XX==]_x))
  9.  
  10. IIMMPPLLEEMMEENNTTAATTIIOONN
  11.      UNICOS/mk and IRIX systems
  12.  
  13.      CRAY T90 systems that support IEEE floating-point arithmetic
  14.  
  15. SSTTAANNDDAARRDDSS
  16.      CF90 and MIPSpro 7 Fortran 90 compiler extension to Fortran 90
  17.  
  18.      IEEE Standard for Binary Floating-point Arithmetic
  19.  
  20. DDEESSCCRRIIPPTTIIOONN
  21.      The IIEEEEEE__IISS__NNAANN intrinsic function returns the value TTRRUUEE if _x is a
  22.      NaN and return the value FFAALLSSEE otherwise.
  23.  
  24.      This function accepts the following argument:
  25.  
  26.      _x         Must be of type real.
  27.  
  28.      IIEEEEEE__IISS__NNAANN is an elemental function.  The name of this intrinsic
  29.      cannot be passed as an argument.
  30.  
  31. NNOOTTEESS
  32.      The IEEE intrinsic procedures use the named constants contained in a
  33.      system module, so you must include one of the following statements in
  34.      your program:
  35.  
  36.      * On UNICOS and UNICOS/mk systems:  UUSSEE CCRRII__IIEEEEEE__DDEEFFIINNIITTIIOONNSS
  37.  
  38.      * On UNICOS, UNICOS/mk, and IRIX systems:  UUSSEE FFTTNN__IIEEEEEE__DDEEFFIINNIITTIIOONNSS
  39.  
  40.      The CCRRII__IIEEEEEE__DDEEFFIINNIITTIIOONNSS module is obsolescent.  It will be removed
  41.      for the CF90 4.0 release.
  42.  
  43. RREETTUURRNN VVAALLUUEESS
  44.      The result type and type parameter are of type default logical.  If _x
  45.      is an array, the result is an array of the same shape as _x.
  46.  
  47.      The value returned has the value TTRRUUEE if _x is a NaN and the value
  48.      FFAALLSSEE otherwise.
  49.  
  50. EEXXAAMMPPLLEESS
  51.           REAL   x
  52.           ...                       ! Compute X.
  53.           IF (IEEE_IS_NAN(x)) THEN
  54.              ...                    ! Do something.
  55.           ELSE
  56.              ...                    ! Do something else.
  57.           END IF
  58.  
  59. SSEEEE AALLSSOO
  60.      _I_n_t_r_i_n_s_i_c _P_r_o_c_e_d_u_r_e_s _R_e_f_e_r_e_n_c_e _M_a_n_u_a_l, publication SR-2138, for the
  61.      printed version of this man page.
  62.  
  63.